home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Utilities / Programming / MT2ToolKit 1.0b1 / CheckPasSyntax < prev    next >
Encoding:
Text File  |  1995-10-09  |  506 b   |  22 lines  |  [TEXT/MPS ]
  1. # --------------------------------------------------
  2. #    MT2ToolKit, version 1.0b1
  3. #    (C) Copyright by Michael Trofimov, 10/6/95.
  4. # --------------------------------------------------
  5. # CheckPasSyntax
  6.  
  7. Set Exit 0
  8. if "{Active}" ≠ "{Worksheet}"
  9.     Open "{Worksheet}"
  10. End
  11. Find ∞ "{Worksheet}"
  12. Set CurPos `Position "{Worksheet}" -l`
  13. Echo "### Check Syntax :" >> "{Worksheet}"
  14. Pascal -c "{Target}" ≥≥ "{Worksheet}"
  15. if "{status}" == 0
  16.  Alert 'No errors'
  17.  Open "{Target}"
  18. Else 
  19.     Target "{Worksheet}"
  20.     line {CurPos}
  21. End
  22.